Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/unix/volume6/lj_filter

Internet Message Format | 1986-11-30 | 17.2 KB

Subject:  v06i106:  Filter for HP Laserjet (lj_filter)
Newsgroups: mod.sources
Approved: [e-mail]

Submitted by: cca!seismo!vsedev!ron (Ron Flax)
Mod.sources: Volume 6, Issue 106
Archive-name: lj_filter

[  I wrote the Makefile; also see my notes at the end of the README.
   I don't have a LaserJet with which to test this program.  -r$ ]

#!/bin/sh
# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
# Wrapped by mirror!rs on Tue Aug 12 18:11:24 EDT 1986
# Contents:  README laser.1 laser.c Makefile

echo x - README
if test -f README ; then
    echo README exists, putting output in $$README
    OUT=$$README
else
    OUT=README
fi
sed 's/^XX//' > $OUT <<'@//E*O*F README//'
XXThe file laser.c is the source to a program that will prepend the
XXdesired setup codes for the Hewlet Packard LaserJet Printers.  It takes
XXinto account such things as page orientation, line spacing, typeface
XXselection, and most, if not all of the other print attributes available
XXon the LaserJet.

XXTo compile simply type "make" then install the program and manpage in the
XXappropriate directories for your system.  If anyone has any problems
XXthey can reply to me at the address below.

XXThe only system dependencies that I can think of off hand are the fact
XXthat the program uses 'getopt(3)' of which a PD version was posted a
XXwhile back, and a selection of the print spooling program usually
XX'lpr(1)' or on System V 'lp(1)'.  Either will work, there's even an
XXoption to allow results to be send to the standard output.

XXMost of the typeface selections set default settings for other options
XXin case you are lazy and only want to select a font by it's typeface
XXname.  One other VERY IMPORTANT point I would like to make is that if
XXyou don't have a particular font cartridge to use some of the features
XXdescribed in the source, then you can't get there from here...

XX--
[e-mail]           (Ron Flax)
XXUUCP:    ..!seismo!vsedev!ron
XXARPA:    vsedev![e-mail]

XX[ MODERATOR'S NOTE:  The /lib/cpp on my 4.2BSD Vax750 couldn't deal
XX  with the long #define for HELP in the source; I added code to
XX  #ifdef it out, but note that the Makefile by default enables it.
XX  If get a "token too long" error, that's probably the cause.  -r$ ]
@//E*O*F README//
chmod u=rw,g=rw,o=rw README

echo x - laser.1
if test -f laser.1 ; then
    echo laser.1 exists, putting output in $$laser.1
    OUT=$$laser.1
else
    OUT=laser.1
fi
sed 's/^XX//' > $OUT <<'@//E*O*F laser.1//'
XX.TH LASER 1
XX.SH NAME
XXlaser \- laser printer preprocessor
XX.SH SYNTAX
XX.B laser
XX[ -{options} ]
XX[ file ] ...
XX.SH DESCRIPTION
XX.I Laser
XXcauses the
XX.I files
XXto be queued for printing on the laser printer.  If no files are named, the
XXstandard input is read.  Actually
XX.I Laser
XXreally only prepends the proper codes to set up the printer then
XXfeeds the output to the system line printer spooler
XXfor further processing and spooling.
XX.TP
XXLaser Command Options:
XX.TP
XX.B c num
XXCharacter Set where num is in the range of 1 to 18.  The numbers have
XXthe following meanings:
XX.DS L
XX 1   Roman-8          2   USASCII         3   Roman Ext
XX 4   Danish/Norwegian 5   United Kingdom  6   French
XX 7   German           8   Italian         9   Swedish
XX 10  Spanish          11  Legal           12  Linedraw
XX 13  Math8            14  Math8a          15  Math8b
XX 16  Math7            17  PiFont          18  PiFonta
XX.DE
XX.TP
XX.B o [ P or L ]
XXOrientation, portrait or landscape.
XX.TP
XX.B t num
XXTypeface selection should be between the range of 1 to 10.  The numbers
XXhave the following meanings:
XX.DS L
XX 1   Courier          2   Line Printer   3   Helvetica
XX 4   Times Roman      5   Prestige Elite 6   Gothic
XX 7   Pica             8   Script         9   Caslon
XX 10  Orator
XX.DE
XX.TP
XX.B h num
XXPoint size which can be selected with a number between 1 and 6.  The
XXnumbers have the following meanings:
XX.DS L
XX 1   7 Pt.            2   8 Pt.         3   8.5 Pt.
XX 4   10 Pt.           5   12 Pt.        6   14.4 Pt.
XX.DE
XX.TP
XX.B p num
XXPitch selection can be either 1) 10cpi 2) 12cpi, or 3) 16.66cpi.
XX.TP
XX.B s [ P or L ]
XXSpacing, proportional or fixed.
XX.TP
XX.B l num
XXLines per inch, valid values are 1, 2, 3, 4, 6, 8, 12, 16, 24, etc.
XX.TP
XX.B i
XXItalic, turns on italic mode for entire document.
XX.TP
XX.B b
XXBold, turns on bold mode for entire document.
XX.TP
XX.B O num
XXOffset from column zero.  Values can be any positive integer less than
XXeighty.
XX.TP
XX.B P num
XXPagestep, this is the number of lines that are needed to force the
XXprinter to handle standard size sheets of paper.  This option is
XXhardwired in at eight lines.  The option is provided so that you can
XXdisable this feature.
XX.TP
XX.B F num
XXForms length, this is the size (number of lines) of the paper. Default
XXvalues for both portrait and landscape sheets are 66 and 54
XXrespectfully.
XX.TP
XX.B w
XXTells
XX.I laser
XXto send the output to the standard output so that it can be piped to
XXanother process or directed to another device.
XX.PP
XXIt is also possible and probably advisable to simply select a
XX.I typeface
XXand maybe a left margin
XX.I offset
XXvalue and let the rest of the options run at their default values for
XXthe typeface selected.
XX.SH SEE ALSO
XXlpr(1),
XXlp(1),
XXHewlet-Packard Technical Reference Guide
XX.SH "AUTHOR"
XXRon Flax
@//E*O*F laser.1//
chmod u=rw,g=rw,o=rw laser.1

echo x - laser.c
if test -f laser.c ; then
    echo laser.c exists, putting output in $$laser.c
    OUT=$$laser.c
else
    OUT=laser.c
fi
sed 's/^XX//' > $OUT <<'@//E*O*F laser.c//'
XX/*
XX *            L A S E R . C
XX *
XX * $Revision: 1.5 $
XX *
XX * $Log:    laser.c,v $
XX * Revision 1.5  86/07/14  17:51:09  ron
XX * Prepared for distribution
XX *
XX * Revision 1.4  86/07/14  16:34:19  ron
XX * Cleaned up code, generally made more human readable.
XX *
XX * Revision 1.3  86/07/14  15:05:31  ron
XX * Basically re-wrote the whole damned thing to support all, well most
XX * of the LaserJet features that are available.  Instead of simply supporting
XX * those that were originally used.  The program now supports all of the
XX * HP font cartridges with most of the attributes available...
XX *
XX * Revision 1.2  86/07/14  09:46:30  ron
XX * Added distinctive RCS header
XX *
XX */
XX#ifndef lint
XXstatic char RCSid[] = "@(#)$Header: laser.c,v 1.5 86/07/14 17:51:09 ron Exp $";
XX#endif

XX#include <stdio.h>


XX#define    LPRCMD "/usr/bin/lp 2>/dev/null 2>&1"

XX/*  If your system can handle it... */
XX/* #define BIGHELPTEXT        /* ... mine can't */

XX#ifndef    BIGHELPTEXT
XX#define HELP() fprintf (stderr, "Please read the manpage.\n");
XX#define USAGE() fprintf (stderr, "Please read the manpage.\n");

XX#else
XX#define USAGE() fprintf (stderr, \
XX    ">>>> Type 'laser -H' to display a help screen.\n")
XX#define HELP()    fprintf (stderr, \
XX"Laser Command Options:\n\
XX  c    --    Character Set\n\
XX    (1)  Roman-8        (2)  USASCII  (3)  Roman Ext. (4)  Danish/Norwegian\n\
XX    (5)  United Kingdom (6)  French   (7)  German     (8)  Italian\n\
XX    (9)  Swedish       (10)  Spanish (11)  Legal     (12)  Linedraw\n\
XX   (13)  Math8         (14)  Math8a  (15)  Math8b    (16)  Math7\n\
XX   (17)  PiFont        (18)  PiFonta\n\
XX  o    --    Orientation (Portrait or Landscape, P or L)\n\
XX  t    --    Typeface\n\
XX    (1)  Courier        (2)  Line Printer   (3)  Helvetica\n\
XX    (4)  Times Roman    (5)  Prestige Elite (6)  Gothic\n\
XX  h    --    Point Size (character height)\n\
XX    (1)  7 Pt. (2)  8 Pt. (3)  8.5 Pt. (4)  10 Pt. (5)  12 Pt. (6)  14.4 Pt.\n\
XX  p    --    Pitch\n\
XX    (1)  10 cpi (2)  12 cpi (3)  16.66 cpi\n\
XX  s    --    Spacing (Proportional or Fixed, P or F)\n\
XX  l    --    Lines per inch (1, 2, 3, 4, 6, 8, 12, 16, 24)\n\
XX  i    --    Italic\n\
XX  b    --    Bold\n\
XX  O    --    Offset from left edge (number of spaces)\n\
XX  P    --    Page Step (number of extra lines)\n\
XX  F    --    Forms Length (number of lines in form)\n\
XX  w    --    Send results to standard output\n")
XX#endif

XXstatic char *Symbols[] =
XX{
XX    "\033(8U",     /* Roman-8 */
XX    "\033(0U",    /* USASCII */
XX        "\033(0E",    /* Roman Ext. */
XX    "\033(0D",    /* Danish/Norwegian */
XX    "\033(1E",    /* United Kingdom */
XX    "\033(0F",    /* French */
XX    "\033(0G",    /* German */
XX    "\033(0I",    /* Italian */
XX    "\033(0S",    /* Swedish/Finnish */
XX    "\033(1S",    /* Spanish */
XX    "\033(1U",    /* Legal */
XX    "\033(0B",    /* Line Draw */
XX    "\033(8M",    /* Math8 */
XX    "\033(0Q",    /* Math8a */
XX    "\033(1Q",    /* Math8b */
XX    "\033(0M",    /* Math7 */
XX    "\033(15U",    /* PiFont */
XX    "\033(2Q",    /* PiFonta */
XX    0
XX};

XXstatic char *Spacing[] =
XX{
XX    "\033(s1P",    /* Proportional */
XX    "\033(s0P",    /* Fixed */
XX    0
XX};

XXstatic char *Type[] =
XX{            /* Yes I know their not in order... */
XX    "\033(s3T",    /* Courier (default) */
XX    "\033(s0T",    /* Line Printer */
XX    "\033(s4T",    /* Helvetica */
XX    "\033(s5T",     /* Times Roman */
XX    "\033(s8T",     /* Prestige Elite */
XX    "\033(s6T",     /* Gothic */
XX    "\033(s1T",    /* Pica */
XX    "\033(s7T",    /* Script */
XX    "\033(s9T",    /* Caslon */
XX    "\033(s10T",    /* Orator */
XX    0
XX};

XXstatic char *Orientation[] =
XX{
XX    "\033&l0O",     /* Portrait */
XX    "\033&l1O",    /* Landscape */
XX    0
XX};

XXstatic char *Point[] =
XX{
XX    "\033(s7V",    /* 7 Pt. */
XX    "\033(s8V",    /* 8 Pt. */
XX    "\033(s8.5V",    /* 8.5 Pt. */
XX    "\033(s10V",     /* 10 Pt. */
XX    "\033(s12V",    /* 12 Pt. */
XX    "\033(s14.4V",    /* 14.4 Pt */
XX    0
XX};

XXstatic char *Pitch[] =
XX{
XX    "\033(s10H",    /* 10 CPI */
XX    "\033(s12H",    /* 12 CPI */
XX    "\033(s16.6H",    /* 16.66 CPI */
XX    "",        /* no pitch for proportional spacing */
XX    0
XX};

XXstatic char *Lpi[] =
XX{
XX    "\033&l7.27c66F", /* 66 lines per page with 1/2 at top and bot */
XX    "\033&l1d66F",    /* 1 lpi */
XX    "\033&l2d66F",    /* 2 lpi */
XX    "\033&l3d66F",    /* 3 lpi */
XX    "\033&l4d66F",    /* 4 lpi */
XX    "\033&l6d66F",    /* 6 lpi */
XX    "\033&l8d66F",    /* 8 lpi */
XX    "\033&l12d66F",   /* 12 lpi */
XX    "\033&l16d66F",   /* 16 lpi */
XX    "\033&l24d66F",   /* 24 lpi */
XX    0
XX};

XXstatic char *Italic = "\033(s1S";

XXstatic char *Bold   = "\033(s3B";

XX#define        CTRL(c)        ('c' & 037)

XX/*
XX *  Defaults
XX */

XXint    sym = 1;
XXint    type = 0;
XXint    spc = 1;
XXint    orient = 0;
XXint    ps = 3;
XXint    ptch = 0;
XXint    lpi = 0;
XXint    offset = 0;
XXint    stdoutput = 0;
XXint    pagestep = 8;
XXint    forms = 66;
XXint    italic = 0;
XXint    bold = 0;
XXint    Debug = 0;

XXmain (argc, argv)
XX    int argc;
XX    char *argv[];
XX{
XX    FILE           *fp, *fopen();
XX    extern char    *optarg;
XX    extern int      optind;
XX    int             i, c, errflg = 0;

XX    while ((c = getopt(argc, argv, "c:o:t:h:l:s:p:O:P:F:biHwd")) != EOF) {
XX        switch (c) {
XX        case 'd':
XX            ++Debug;
XX            break;

XX        case 'l':
XX            lpi = atoi(optarg);
XX            switch (lpi) {
XX            case 1: case 2: case 3: case 4: case 6:
XX            case 8: case 12: case 16: case 24:
XX                if (Debug)
XX                    fprintf(stderr, "lpi = %d, ", lpi);
XX                break;
XX            default:
XX                printf("Lines Per Inch values must be one of 1, 2, 3, 4, 6, 8, 12, 16, or 24.\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            break;
XX        case 'o':
XX            if (*optarg == 'p' || *optarg == 'P')
XX                orient = 0;
XX            else if (*optarg == 'l' || *optarg == 'L')
XX                orient = 1;
XX            else {
XX                printf("Orientation must be specified as either 'P' or 'L'.\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf (stderr,"orientation -> %c, ", *optarg);
XX            break;

XX        case 't':
XX            type = atoi(optarg);
XX            --type;
XX            if (type < 0 || type > 10) {
XX                printf("Typeface selection must be in the range of 1 (one) to 6 (six).\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            /* Set up some defaults in case none of these are
XX               chosen explicitly */
XX            switch (type) {
XX            case 0:
XX                sym = orient = ptch = 0; spc = 1; ps = 4;
XX                break;
XX            case 1:
XX                sym = spc = 1; orient = 0; ps = ptch = 2;
XX                break;
XX            case 2:
XX                sym = spc = 0; orient = 1; ps = ptch = 3;
XX                break;
XX            case 3:
XX                sym = spc = orient = 0; ps = 4; ptch = 1;
XX                break;
XX            case 4:
XX                sym = orient = 0; spc = 1; ps = 3; ptch = 1;
XX                break;
XX            case 5:
XX                sym = orient = 0; spc = 1; ps = 4; ptch = 1;
XX                break;
XX            case 6:
XX                sym = orient = 0; spc = ptch = 1; ps = 4;
XX                break;
XX            }
XX            if (Debug)
XX                fprintf (stderr, "typeface = %d, ", type);
XX            break;

XX        case 's':
XX            if (*optarg == 'P' || *optarg == 'p') {
XX                spc = 0;
XX                ptch = 3;
XX            }
XX            else if (*optarg == 'F' || *optarg == 'f')
XX                spc = 1;
XX            else {
XX                printf("Spacing must be specified as either 'P' or 'F'\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf (stderr, "spacing -> %c, ", *optarg);
XX            break;

XX        case 'h':
XX            ps = atoi(optarg);
XX            --ps;
XX            if (ps < 0 || ps > 6) {
XX                printf("Point size must be specified within the range of 1 (one) to 6 (six)\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf (stderr, "point size = %d, ", ps);
XX            break;

XX        case 'p':
XX            ptch = atoi(optarg);
XX            --ptch;
XX            if (ptch < 0 || ptch > 3) {
XX                printf("Pitch must be specified within the range of 1 (one) to 6 (six).\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf (stderr, "pitch = %d, ", ptch);
XX            break;

XX        case 'c':    /* Symbol Set selection */
XX            sym = atoi(optarg);
XX            --sym;
XX            if (sym < 0 || sym > 18) {
XX                printf("Character set selection must be between the range of 1 (one) and 18 (eighteen).\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf(stderr, "symbol set = %d, ", sym);
XX            break;

XX        case 'O':    /* Offset from left margin */
XX            offset = atoi(optarg);
XX            if (offset < 0 || offset > 80) {
XX                printf("Offset value must be specified between the range of 0 (zero) and 80 (eighty).\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf(stderr, "offset = %d, ", offset);
XX            break;

XX        case 'P':
XX            pagestep = atoi(optarg);
XX            if (pagestep < 0 || pagestep > 66) {
XX                printf("Page Step value must be specified between the range of 1 (one) and 66 (sixty six).\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf (stderr, "page step = %d, ", pagestep);
XX            break;

XX        case 'F':
XX            forms = atoi(optarg);
XX            if (forms < 0) {
XX                printf("Forms value must be greater than 0 (zero).\n");
XX                USAGE();
XX                exit(1);
XX            }
XX            if (Debug)
XX                fprintf (stderr, "forms = %d, ", forms);
XX            break;

XX        case 'i':
XX            italic++;
XX            if (Debug)
XX                fprintf (stderr, "italics set, ");
XX            break;

XX        case 'b':
XX            bold++;
XX            if (Debug)
XX                fprintf (stderr, "bold set, ");
XX            break;

XX        case 'w':    /* Standard Output */
XX            if (Debug)
XX                fprintf (stderr, "results to stdout, ");
XX            stdoutput++;
XX            break;

XX        case 'H':
XX            HELP();
XX            exit (1);

XX        default:
XX            errflg++;
XX            break;
XX        }
XX    }

XX    if (errflg) {
XX        fprintf (stderr, "laser [ - {options} ] [ files ] ... \n");
XX        USAGE();
XX        exit(1);
XX    }

XX    if (Debug) fprintf (stderr, "\b \n");

XX    if (argc == optind)
XX        sendjob(stdin);
XX    else
XX        for (; optind < argc; optind++)
XX            if ((fp = fopen(argv[optind], "r")) == NULL) {
XX                fprintf(stderr, "laser: can't open %s\n", argv[optind]);
XX                exit(1);
XX            } else {
XX                sendjob(fp);
XX                fclose(fp);
XX            }
XX    exit(0);
XX}

XXsendjob (fp)
XX    FILE *fp;
XX{
XX    FILE    *pp, *popen();
XX    int pg = pagestep, c, lines;

XX    if (! stdoutput) {
XX        if ((pp = popen (LPRCMD, "w")) == NULL) {
XX        fprintf(stderr,"laser: cannot pipe to line printer device.\n");
XX        exit (1);
XX        }
XX    } else
XX        pp = stdout;

XX            /* reset        perf skip ON */
XX    fprintf (pp, "\033E%s%s%s%s%s%s%s\033&l1L\r",
XX        Symbols[sym],
XX        Spacing[spc],
XX        Orientation[orient],
XX        Type[type],
XX        Point[ps],
XX        Lpi[lpi],
XX        Pitch[ptch]);

XX    if (forms != 66)
XX        fprintf (pp, "\033&l%dF\r", forms);

XX    if (bold)
XX        fprintf (pp, "%s\r", Bold);

XX    if (italic)
XX        fprintf (pp, "%s\r", Italic);

XX    if (offset)
XX        fprintf (pp, "\033&a%dL\r", offset);

XX    while ((c = getc (fp)) != EOF) {
XX        if (c == CTRL(l)) {
XX            while (lines < forms) {
XX                putc ('\n', pp);
XX                lines++;
XX                }
XX            continue;    /* eat the ^L char */
XX        }
XX        if (c == CTRL(j)) {
XX            if (lines == forms) {
XX                while (pg-- > 0)
XX                    putc ('\n', pp);
XX                lines = 0;
XX                continue;
XX            } else
XX                lines++;
XX        }
XX        putc (c, pp);
XX    }
XX    fprintf (pp, "\033E"); /* reset the printer to default settings */
XX    pclose (pp);
XX}
@//E*O*F laser.c//
chmod u=rw,g=rw,o=rw laser.c

echo x - Makefile
if test -f Makefile ; then
    echo Makefile exists, putting output in $$Makefile
    OUT=$$Makefile
else
    OUT=Makefile
fi
sed 's/^XX//' > $OUT <<'@//E*O*F Makefile//'
XX# Where is getopt on your system?
XXGETOPT    = -lgetopt

XX# If you get errors, comment out the next line.
XXDEFS    = -DBIGHELPTEXT

XXCFLAGS    = -O $(DEFS)

XXlaser:    laser.c
XX    cc $(CFLAGS) -o laser laser.c $(GETOPT)
@//E*O*F Makefile//
chmod u=rw,g=rw,o=rw Makefile

echo Inspecting for damage in transit...
temp=/tmp/sharin$$; dtemp=/tmp/sharout$$
trap "rm -f $temp $dtemp; exit" 0 1 2 3 15
cat > $temp <<\!!!
      31     263    1528 README
     101     486    2729 laser.1
     452    1628   10042 laser.c
      10      35     200 Makefile
     594    2412   14499 total
!!!
wc  README laser.1 laser.c Makefile | sed 's=[^ ]*/==' | diff -b $temp - >$dtemp
if test -s $dtemp
then echo "Ouch [diff of wc output]:" ; cat $dtemp
else echo "No problems found."
fi
exit 0